FROM iomd.vctlc       IMPORT  $VCTL
FROM StdParts.Misc    IMPORT $Sink

BLOCK VCTL(dmach[2:0], fsize[7:0],clk64,dmagoing,dmavbus,flybk,fsizewt,Ninitu,Nsndrq,Nvidrq,qsf,rclk,
           reset, vrm, vsnden, vbusrqram, vbusrqprog, viden, vnc)
         =>(clk32, cursrq, flybi, flybid,Ncdoe, Ninit, Nse, Nsndak, Nvidak, pclk, sc,
            vsnddrq, split, transrq, vbusak, vncd)

   vctl = $VCTL(dmach[2:0],fsize[7:0],clk64,clk32,dmagoing,dmavbus,flybk,flybks,fsizewt,Ninit,Ninitu,Nsndrq,
               Nvidrq,pclk,qsf,rclk,reset,sc,vsnden,vbusrq,vbusrqram,vbusrqprog,vidakn,viden,vnc,
               vncs,vncd,vrm,was8ck,was9ck,wasFck) 
         =>(cursrq,flybi,flybid,last,Ncdoe,Nse,Nsndak,Nvidak,vsnddrq,split,transrq,vbusak,vclk,
           tsm[1:0],ste[3:0],sts[1:0],ak,even,go,req) 
            WITH (delay = (gt=ns_2))

   vsink = $Sink(vsunk(sts[1:0],ste[3:0],tsm[1:0],last,flybks,vclk,vidakn,vncs,
                  was8ck,was9ck,wasFck,ak,even,go,req,vbusrq))

END {VCTL}
